home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / SPIRAL.PAS < prev    next >
Pascal/Delphi Source File  |  1995-08-30  |  600b  |  32 lines
  1. Program SPIRAL;
  2. Uses Crt,Graph;
  3. Var
  4.   Xi,Yi,X,Y,Teta,Rad: Real;
  5.   Cx,Cy,Gd,Gm:        integer;
  6.   Mx,My:              integer;
  7. Begin
  8.   DetectGraph(Gd,Gm);
  9.   InitGraph(Gd,Gm,'');
  10.   Mx:=GetMaxX;
  11.   My:=GetMaxY;
  12.   Cx:=Trunc(Mx/2);
  13.   Cy:=Trunc(My/2);
  14.   Rad:=10;
  15.   Teta:=0;
  16.   Xi:=Rad*Cos(Teta);
  17.   Yi:=Rad*Sin(Teta);
  18.   MoveTo(Round(Cx+Xi),Round(Cy+Yi));
  19.   While Rad < 75 do
  20.      Begin
  21.        Teta:=Teta+0.1;
  22.        Rad:=Rad+0.1;
  23.        X:=Rad*Cos(Teta);
  24.        Y:=Rad*Sin(Teta);
  25.        LineTo(Round(Cx+X),Round(Cy+Y));
  26.      End;
  27.   Repeat until keypressed;
  28.   CloseGraph;
  29. End.
  30.  
  31.  
  32.